% mucsv_agg.m -- aggregate inflation
% 11/2/2015, MWW
%


clear all;
small = 1.0e-10;
big = 1.0e+6;                  
rng(663436);
 
  % -- File Directories  
  outdir = '/Users/mwatson/Dropbox/p_comp/revision/matlab/out/';
  figdir = '/Users/mwatson/Dropbox/p_comp/revision/matlab/fig/';
  matdir = '/Users/mwatson/Dropbox/p_comp/revision/matlab/mat/';

  % -- Read in Data --- 
  load_data = 1;  % 1 if reloading data from Excel, etc 
  mtoq_agg = 3;   % Temporal aggregation indicator of monthly to quarterly data
  pcomp_data_calendar_m_and_q;
  % Data Series Used
  dp_agg = dp_agg_q;
  dp_agg_xfe = dp_agg_xfe_q;
  dp_agg_xe = dp_agg_xe_q;
  dp_disagg = dp_disagg_q;
  share_avg = share_avg_q;
  share_avg_xfe = share_avg_xfe_q;
  share_avg_xe = share_avg_xe_q;
  calvec = calvec_q;
  dnobs = dnobs_q;
  calds = calds_q;
  nper = 4;
  mlabel = '_mucsv_tvp_17c_Q3';
  
  outfile_name = [outdir 'AppendixTabs_A3_A4_A5_A6_A7.out'];
  fileID = fopen(outfile_name,'w');
  
  str_tmp = [matdir 'g_eps_common_prior_post' mlabel]; load(str_tmp);
  str_tmp = [matdir 'g_dtau_common_prior_post' mlabel]; load(str_tmp);
  str_tmp = [matdir 'ps_common_mean_pct' mlabel]; load(str_tmp);
  
  % Read in Sector-Specific posteriors
  str_tmp = [matdir 'g_eps_unique_prior_post' mlabel]; load(str_tmp);
  str_tmp = [matdir 'g_dtau_unique_prior_post' mlabel]; load(str_tmp);
  str_tmp = [matdir 'ps_unique_mean_pct' mlabel]; load(str_tmp);
  
  fprintf(fileID,'\n Gamma_EPS_common \n');
  fprintf(fileID,'gamma,prior,post \n');
  prtmat_comma(g_eps_common_prior_post,fileID,'%5.2f','\n');
  
  fprintf(fileID,'\n Gamma_dtau_common \n');
  fprintf(fileID,'gamma,prior,post \n');
  prtmat_comma(g_dtau_common_prior_post,fileID,'%5.2f','\n');
  
  fprintf(fileID,'\n Outlier Prob \n');
  fprintf(fileID,'16,50,67 \n');
  p = 1-ps_common_mean_pct;
  prtmat_comma(p(:,[5 4 3]),fileID,'%5.2f','\n');
  
  fprintf(fileID,'\n Gamma_EPS_unique \n');
  fprintf(fileID,'sector,gamma,prior,post \n');
  prtmat_comma(g_eps_unique_prior_post(:,1:2)',fileID,'%5.2f','\n');
  for i = 1:n_incl;
    str = char(labelvec_short_disagg(i));
    fprintf(fileID,[str ',']);  
    prtmat_comma(g_eps_unique_prior_post(:,i+2)',fileID,'%5.2f','\n');
  end;
  
    
  fprintf(fileID,'\n Gamma_dtau_unique \n');
  fprintf(fileID,'sector,gamma,prior,post \n');
  prtmat_comma(g_dtau_unique_prior_post(:,1:2)',fileID,'%5.2f','\n');
  for i = 1:n_incl;
    str = char(labelvec_short_disagg(i));
    fprintf(fileID,[str ',']);  
    prtmat_comma(g_dtau_unique_prior_post(:,i+2)',fileID,'%5.2f','\n');
  end;
  
  
  fprintf(fileID,'\n Outlier Prob \n');
  fprintf(fileID,'16,50,67 \n');
  p = 1-ps_unique_mean_pct;
  for i = 1:n_incl;
    str = char(labelvec_short_disagg(i));
    fprintf(fileID,[str ',']);
    prtmat_comma(p(i,[5 4 3]),fileID,'%5.2f','\n');
  end;
  
%   p = 1-ps_unique_mean_pct;
%   for i = 1:n_incl;
%     str = char(labelvec_short_disagg(i));
%     fprintf(['%2i, ' str ','],i);
%     tmp = p(i,[5 4 3]);
%     prtmat_comma_screen(tmp,'%4.2f','\n');
%   end;
% 
%   fprintf('\n\n\n');
%   fprintf('Gamma delta-tau \n');
%   tmp = g_dtau_unique_prior_post(:,1)';
%   fprintf('Value ,');
%   prtmat_comma_screen(tmp,'%4.2f','\n');
%   tmp = g_dtau_unique_prior_post(:,2)';
%   fprintf('Prior ,');
%   prtmat_comma_screen(tmp,'%4.2f','\n');
%   for i = 1:n_incl;
%     str = char(labelvec_short_disagg(i));
%     fprintf([str ',']);
%     tmp = g_dtau_unique_prior_post(:,i+2)';
%     prtmat_comma_screen(tmp,'%4.2f','\n');
%   end;
%   
%   fprintf('\n\n\n');
%   fprintf('Gamma epsilon \n');
%   tmp = g_eps_unique_prior_post(:,1)';
%   fprintf('Value ,');
%   prtmat_comma_screen(tmp,'%4.2f','\n');
%   tmp = g_eps_unique_prior_post(:,2)';
%   fprintf('Prior ,');
%   prtmat_comma_screen(tmp,'%4.2f','\n');
%   for i = 1:n_incl;
%     str = char(labelvec_short_disagg(i));
%     fprintf([str ',']);
%     tmp = g_eps_unique_prior_post(:,i+2)';
%     prtmat_comma_screen(tmp,'%4.2f','\n');
%   end;